<%
option explicit
%>
<%
dim oConn
set oConn = server.createobject("adodb.connection")
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/db/kcrhca.mdb") & ";"
%>
<%
dim oRs
dim aRs
dim rr
dim sql
dim sid, job_title, summary, pdf, pdftag
on error resume next
sid = request.querystring("id")
sql = "SELECT job_title, summary, pdf "
sql = sql & "FROM careers WHERE id = " & sid
set oRs = oConn.execute(sql)
output = ""
if not oRs.eof then
job_title = oRs("job_title")
summary = oRs("summary")
pdf = trim(oRs("pdf"))
summary = replace(summary, chr(10), " ")
if pdf <> "" then
pdftag = "File: " & pdf & " "
else
pdftag = ""
end if
else
job_title = "Not found."
end if
set oRs = nothing
%>
Kansas City Regional Home Care Association
